COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	REQUIRE "[]<>" DELIMITERS 
C00005 ENDMK
C⊗;
REQUIRE "[]<>" DELIMITERS ;

IFC NOT DECLARATION(TERNAL) THENC
DEFINE
TERNAL = [EXTERNAL],
PRELOAD = [COMMENT] ;
ENDC

DEFINE

IFK = [ENDC IFC],
THENK = [THENC IFC FALSE THENC],
PRIVATE = [FORWARD],
PUBLIC  = [FORWARD INTERNAL ELSEC EXTERNAL ENDC IFC TRUE THENC],
PROCEDURES = [IFC FALSE THENC],
FINISHED = [ENDC] ;

DEFINE PROGRAM(NAME,CLANNAME) =
[
DEFINE
NAME =
IFC EQU(CVMS(CLANCOMPILEFILE), "CLANNAME") THENC
	[ENDC IFC TRUE THENC]
ELSEC	[ENDC IFC FALSE THENC]
ENDC
] ;

PROGRAM(ALGOL,ABC) ;
PROGRAM(AREAS,ABC) ;
PROGRAM(BLOCK,ABC) ;
PROGRAM(CNTRS,ABC) ;
PROGRAM(COLMS,ABC) ;
PROGRAM(COMMD,ABC) ;
PROGRAM(CTRLC,ABC) ;
PROGRAM(DATUM,DEF) ;
PROGRAM(ERROR,DEF) ;
PROGRAM(FILES,DEF) ;
PROGRAM(FILLR,DEF) ;
PROGRAM(FONTS,DEF) ;
PROGRAM(PAGES,PQR) ;
PROGRAM(PASTE,PQR) ;
PROGRAM(PORTS,PQR) ;
PROGRAM(QUADS,PQR) ;
PROGRAM(RESPS,PQR) ;
PROGRAM(RUNP2,PQR) ;
PROGRAM(SORCE,STUVX) ;
PROGRAM(TEMPL,STUVX) ;
PROGRAM(TOKEN,STUVX) ;
PROGRAM(USERS,STUVX) ;
PROGRAM(VARBL,STUVX) ;
PROGRAM(VERTI,STUVX) ;
PROGRAM(XREFS,STUVX) ;

REQUIRE "GLOBE" SOURCE!FILE ;
COMMENT GLOBAL DEFINES AND VARIABLES ;

REQUIRE "PROCS" SOURCE!FILE ;
COMMENT EXTERNAL AND FORWARD PROCEDURES ;

DEFINE

IFK = [IFC],
IFSITE = [IFC],
THENK = [THENC],
SITE(DUMMY) = [],
$ = ["],
# = [],
PUBLIC = [INTERNAL],
PRIVATE = [ ],
PROCEDURES = [ ],
FINISHED = [ ],
BEGOF(NAME) = [ ],
ENDOF(NAME) = [ ],
CLANFINISHED = [ END "VARIAB" ] ;